home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / midipk.exe / SYSEX.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-05-10  |  1.2 KB  |  46 lines
  1. Attribute VB_Name = "SYSEX1"
  2. Option Explicit
  3.  
  4. Global Const MODAL = 1
  5.  
  6. Sub MIDIInOpen()
  7.     Dim wRtn As Integer
  8.     
  9.     If frmMain.MIDIInput1.State >= MIDISTATE_OPEN Then
  10.         ' Close midiin port
  11.         frmMain.MIDIInput1.Action = MIDIIN_CLOSE
  12.  
  13.         'Turn off the MIDI Filtering
  14.         frmMain.MIDIInput1.Filter(FILTER_F9) = False
  15.         frmMain.MIDIInput1.Filter(FILTER_ACTIVE_SENSE) = False
  16.         frmMain.MIDIInput1.Filter(FILTER_CLOCK) = False
  17.     End If
  18.  
  19.     
  20.     ' Get selected device id
  21.     frmMain.MIDIInput1.DeviceID = MIDISetupForm.ComboMidiIn.ListIndex
  22.     
  23.     ' Open midi in
  24.     frmMain.MIDIInput1.Action = MIDIIN_OPEN
  25.  
  26.     'Turn on some MIDI Filtering
  27.     frmMain.MIDIInput1.Filter(FILTER_F9) = True
  28.     frmMain.MIDIInput1.Filter(FILTER_ACTIVE_SENSE) = True
  29.     frmMain.MIDIInput1.Filter(FILTER_CLOCK) = True
  30.  
  31. End Sub
  32.  
  33. Sub MIDIOutOpen()
  34.  
  35.     If frmMain.MIDIOutput1.State >= MIDISTATE_OPEN Or frmMain.MIDIOutput1.DeviceID = -1 Then
  36.         ' Close
  37.         frmMain.MIDIOutput1.Action = MIDIOUT_CLOSE
  38.     End If
  39.     
  40.     ' Open selected device
  41.     frmMain.MIDIOutput1.DeviceID = MIDISetupForm.ComboMidiOut.ListIndex - 1
  42.     frmMain.MIDIOutput1.Action = MIDIOUT_OPEN
  43.     
  44. End Sub
  45.  
  46.